home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / I-Z / RA.cpt / Var_Ptr_Hndl.ra < prev    next >
Text File  |  1986-10-17  |  802b  |  47 lines
  1. |
  2. |   RA™
  3. |
  4. |    Variables,programs, handles
  5. |
  6. |   © 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA™ allows you use variables when!"
  10. "writing programs.  However, it!"
  11. "only allows you to have 26 variables.!"
  12. "A thru Z. All variables are global!"
  13. "unless they are withing a subroutine.!"
  14. "RA however supports indirection.!!"
  15. #A;
  16. 2 A: "Variable 'A' has " A. ! " in it.!"
  17. A. B: "B has "  B. ! " in it.!"
  18. 12 C: "C has "  C. ! " in it.!"
  19. "B is actually a pointer to C.!"
  20. "B.. has " B.. ! " in it .!!"
  21. #A;
  22. "THE END."  
  23.  
  24.  
  25. $
  26. &A  "Hit any key:" ?§ µ @ `
  27. |
  28. |  RA title routine
  29. |
  30. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  31.  
  32. &O
  33. 40 100 Ω
  34. "RA™"
  35. 60 45 Ω 
  36. "© 1986 COM~LINK & S.Koren" 
  37. 80 60 Ω
  38. "All rights reserved." `
  39.  
  40. &L
  41. 35 A: ("•" A. 1 - A: A. 0 > ~ ) "!"`
  42.  
  43. &N
  44. "•" 33 A: (" " A. 1 - A: A. 0 > ~ ) "•" "!"`
  45.  
  46. &P ?§ @ `
  47. $